
;;
;; The port right type. Represents different kinds of port rights.
;; 

;; This is used at expansion time in %create-port-type-type;
;; so define this at expansion time.

(eval-when (expand load eval)
(defcenum port-right
  (:right-send 0)
  :right-receive
  :right-send-once
  :right-port-set
  :right-dead-name
  :right-number))

